Amiga Plus 1995 #5 & #6/Amiga Plus CD - 1995 - No. 5 and 6.iso/pd/serien/purity/nr.20/druckertest/druckertest.unit

Text File | 1995-04-22 | 602b | 30 lines

{$projekt rogertools }
{ damit druckertest in eine extra Schublade abgelegt wird}
Unit druckertest;

INTERFACE   { © 14.10.1993 by PackMan & Røgersøft }


 FUNCTION druckbereit:BOOLEAN;

IMPLEMENTATION
 {$if not def DOS_LIB_H; INCLUDE 'dos.lib';endif}

 VAR  outfile,laenge,anzahl:LONG;
      st:STRING[2];

 FUNCTION druckbereit;
 BEGIN
  st:=' ';
  outfile:=OPEN('PRT:',mode_newfile);
  IF outfile<>0 THEN
   BEGIN
   laenge:=3;
   anzahl:=doswrite(outfile,^st,3);
   IF anzahl=laenge THEN druckbereit:=TRUE
                    ELSE druckbereit:=FALSE;
  END;
  anzahl:=DOSClose(outfile);
 END;
END.